home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / wlib11_2.zip / EXAMPLES.EXE / EXAM33.C < prev    next >
C/C++ Source or Header  |  1991-03-13  |  586b  |  21 lines
  1.   #include "window.h"
  2.   #define NORM   CREATE_VIDEO_ATTRIBUTE(black,white)
  3.   #define REDONWHITE  CREATE_VIDEO_ATTRIBUTE(red,white)
  4.  
  5.   WPOINTER w;
  6.  
  7.   main()
  8.   {
  9.     int i;
  10.     WindowInitializeSystem();
  11.     WindowSaveInitial(0);
  12.     w = WindowInitialize(BORDER,1,1,20,10,NORM,NORM,SINGLEBOX);
  13.     WindowOpen(w);
  14.     WindowDisplay(w,1,NOEFFECT);
  15.     for (i=0;i<10;i++)
  16.       WindowWriteRepeatCharacter(w,'A'+i,i+1,1,20);
  17.     GET_KEY();
  18.     WindowScrollRegionAttr(w,1,3,5,6,15,UP,REDONWHITE);
  19.     GET_KEY();
  20.     WindowScrollRegionAttr(w,3,8,4,10,12,DOWN,REDONWHITE);
  21.   }